home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD70856242000.psc / Class Version / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-23  |  8.7 KB  |  286 lines

  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Begin VB.Form Form1 
  6.    Caption         =   "XFiles"
  7.    ClientHeight    =   4860
  8.    ClientLeft      =   1470
  9.    ClientTop       =   2460
  10.    ClientWidth     =   8625
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4860
  13.    ScaleWidth      =   8625
  14.    Begin RichTextLib.RichTextBox RT 
  15.       Height          =   4095
  16.       Left            =   120
  17.       TabIndex        =   0
  18.       Top             =   360
  19.       Width           =   8415
  20.       _ExtentX        =   14843
  21.       _ExtentY        =   7223
  22.       _Version        =   393217
  23.       ScrollBars      =   2
  24.       TextRTF         =   $"Form1.frx":0000
  25.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  26.          Name            =   "Verdana"
  27.          Size            =   9.75
  28.          Charset         =   0
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.    End
  35.    Begin MSComctlLib.StatusBar StatusBar1 
  36.       Align           =   2  'Align Bottom
  37.       Height          =   375
  38.       Left            =   0
  39.       TabIndex        =   2
  40.       Top             =   4485
  41.       Width           =   8625
  42.       _ExtentX        =   15214
  43.       _ExtentY        =   661
  44.       _Version        =   393216
  45.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  46.          NumPanels       =   3
  47.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  48.             Style           =   5
  49.             Alignment       =   1
  50.             TextSave        =   "10:49 PM"
  51.          EndProperty
  52.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  53.             Style           =   1
  54.             Alignment       =   1
  55.             AutoSize        =   2
  56.             Enabled         =   0   'False
  57.             TextSave        =   "CAPS"
  58.          EndProperty
  59.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  60.             Style           =   2
  61.             Alignment       =   1
  62.             AutoSize        =   2
  63.             Enabled         =   0   'False
  64.             TextSave        =   "NUM"
  65.          EndProperty
  66.       EndProperty
  67.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.          Name            =   "Verdana"
  69.          Size            =   8.25
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.    End
  77.    Begin VB.ListBox List1 
  78.       Height          =   255
  79.       ItemData        =   "Form1.frx":00E4
  80.       Left            =   120
  81.       List            =   "Form1.frx":00E6
  82.       TabIndex        =   1
  83.       Top             =   0
  84.       Width           =   8415
  85.    End
  86.    Begin MSComDlg.CommonDialog CD 
  87.       Left            =   120
  88.       Top             =   120
  89.       _ExtentX        =   847
  90.       _ExtentY        =   847
  91.       _Version        =   393216
  92.       Filter          =   "All Files | *.*"
  93.    End
  94.    Begin VB.Menu File 
  95.       Caption         =   "&File"
  96.       Begin VB.Menu New 
  97.          Caption         =   "&New"
  98.          Shortcut        =   ^N
  99.       End
  100.       Begin VB.Menu Open 
  101.          Caption         =   "&Open"
  102.          Shortcut        =   ^O
  103.       End
  104.       Begin VB.Menu s 
  105.          Caption         =   "-"
  106.       End
  107.       Begin VB.Menu Save 
  108.          Caption         =   "&Save"
  109.          Shortcut        =   ^S
  110.       End
  111.       Begin VB.Menu SaveAs 
  112.          Caption         =   "Save &As..."
  113.       End
  114.       Begin VB.Menu sep 
  115.          Caption         =   "-"
  116.       End
  117.       Begin VB.Menu Go 
  118.          Caption         =   "http://&go.to/Abubakar"
  119.          Shortcut        =   ^G
  120.       End
  121.       Begin VB.Menu sep2 
  122.          Caption         =   "-"
  123.       End
  124.       Begin VB.Menu Exit 
  125.          Caption         =   "&Exit"
  126.       End
  127.    End
  128. Attribute VB_Name = "Form1"
  129. Attribute VB_GlobalNameSpace = False
  130. Attribute VB_Creatable = False
  131. Attribute VB_PredeclaredId = True
  132. Attribute VB_Exposed = False
  133. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  134. '   A text editor sort of App using the Drag Class.
  135. '                       -Author:        Muhammad Abubakar
  136. '                                       <joehacker@yahoo.com>
  137. '                                       http://go.to/abubakar
  138. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  139. Option Explicit
  140. Private size As New CResize
  141. Private WithEvents FileClass As CDrag_Drop
  142. Attribute FileClass.VB_VarHelpID = -1
  143. Private f1 As Boolean, fChange As Boolean, op As Boolean
  144. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  145. Private Sub Exit_Click()
  146.     Unload Me
  147. End Sub
  148. Private Sub FileClass_FilesDroped()
  149.     On Error Resume Next
  150.     List1.Clear
  151.     List1.AddItem FileClass.FileName(0)
  152.     FLoad FileClass.FileName(0)
  153. End Sub
  154. Private Sub Form_Load()
  155.     Set FileClass = New CDrag_Drop
  156.     With size
  157.         .hParam = Height
  158.         .wParam = Width
  159.         .Map List1, RS_WidthOnly
  160.         .Map RT, RS_Height_Width
  161.     End With
  162.     If Command <> "" Then
  163.         Me.Show
  164.         List1.AddItem Command
  165.         FLoad Command
  166.         'f1 = True
  167.         fChange = False
  168.         op = True
  169.     End If
  170.         
  171.     FileClass.DragHwnd = List1.Hwnd
  172.     FileClass.StartDrag
  173. End Sub
  174. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  175.     Dim r As Integer
  176.     If fChange = True Then
  177.         r = Ask
  178.         Select Case r
  179.             Case vbYes:
  180.                 
  181.                 Save_Click
  182.                 
  183.             Case vbCancel:
  184.                 Cancel = 1
  185.                 'Exit Sub
  186.                 
  187.         End Select
  188.     End If
  189. End Sub
  190. Private Function Ask() As Integer
  191.     Ask = MsgBox("The contents of the file have been changed." & _
  192.         vbCrLf & "Do you want to save the changes ?", vbYesNoCancel, "Save Changes")
  193. End Function
  194. Private Sub Form_Resize()
  195.     size.rSize Me
  196. End Sub
  197. Private Sub Form_Unload(Cancel As Integer)
  198.     'The window is being subclassed so we must stop subclassing
  199.     'before leaving or CRASH BOOM BANG!!!
  200.     'On the other hand, even if you dont call StopDrag method, nothing
  201.     'will happen as the subclassing is automatically turned safely
  202.     'off as the class terminates.
  203.     FileClass.StopDrag
  204.     Set size = Nothing
  205.     Set FileClass = Nothing
  206. End Sub
  207. Private Sub Go_Click()
  208.     ShellExecute Me.Hwnd, "Open", "http://go.to/abubakar", "", App.Path, 1
  209. End Sub
  210. Private Sub New_Click()
  211.     Dim r As Integer
  212.     If fChange = True Then
  213.         r = Ask
  214.         Select Case r
  215.             Case vbYes:
  216.                 Save_Click
  217.                 
  218.             Case vbCancel:
  219.                 Exit Sub
  220.         End Select
  221.     End If
  222.     op = False
  223.     RT.Text = ""
  224.     List1.Clear
  225.     fChange = False
  226. End Sub
  227. Private Sub Open_Click()
  228.     On Error GoTo AI
  229.     Dim str As String
  230.     Dim r As Integer
  231.     If fChange = True Then
  232.         r = Ask
  233.         Select Case r
  234.             Case vbYes:
  235.                 Save_Click
  236.                 
  237.             Case vbCancel:
  238.                 Exit Sub
  239.         End Select
  240.     End If
  241.     CD.ShowOpen
  242.     str = CD.FileName
  243.     If str <> "" Then
  244.         f1 = True
  245.         FLoad str
  246.         List1.Clear
  247.         List1.AddItem str
  248.         
  249.         fChange = False
  250.         op = True
  251.     End If
  252.     Exit Sub
  253.     MsgBox "There was an error opening the file!", vbCritical, "File Open Error"
  254. End Sub
  255. Private Sub RT_Change()
  256.     If f1 = True Then
  257.         f1 = False
  258.     Else
  259.         fChange = True
  260.     End If
  261. End Sub
  262. Private Sub Save_Click()
  263.     If op = True Then
  264.         FSave List1.List(0)
  265.         fChange = False
  266.     Else
  267.         CD.ShowSave
  268.         If CD.FileName <> "" Then FSave CD.FileName: fChange = False
  269.     End If
  270. End Sub
  271. Private Sub SaveAs_Click()
  272.     CD.ShowSave
  273.     If CD.FileName <> "" Then
  274.         FSave CD.FileName
  275.         fChange = False
  276.     End If
  277. End Sub
  278. 'if you want to save and load the files in the RTF format then change
  279. 'rtfText to rtfRTF below
  280. Private Sub FSave(FName As String)
  281.     RT.SaveFile FName, rtfText 'rtfRTF
  282. End Sub
  283. Private Sub FLoad(FName As String)
  284.     RT.LoadFile FName, rtfText 'rtfRTF
  285. End Sub
  286.